10 REM ** TEST RACER **
20 POKE 53280,5:POKE 53281,11:POKE 646,15
25 A=RND(-TI)
30 P=15:R$=CHR$(46):L$=CHR$(44)
40 PRINT CHR$(147)
50 PRINT:PRINT TAB(12);"** TEST RACER **"
60 PRINT" YOU ARE TESTING A NEW RACING TRACK IN   YOUR CAR"
70 PRINT" PRESS < TO GO LEFT AND > TO GO RIGHT"
80 PRINT" IF YOU GO OFF THE RUN, YOU WILL CRASH"
100 PRINT"";TAB(5);" PRESS SPACE TO BEGIN PLAYING [146]"
110 GET A$:IF A$<>CHR$(32) THEN 110
120 FORT=1 TO 1000:NEXT
130 :
140 REM ** THE GAME **
150 :
160 W=40
170 PRINT""
180 T=W/2-P/2
190 C=W/2:Z=1
200 PRINT TAB(T);" [146]";TAB(C);"@@";TAB(T+P);" [146]"
210 Z=Z+1:IF Z=1000 THEN 400
220 R=RND(1)
230 IF R<0.5 AND T>2 THEN T=T-1
240 IF R>0.5 AND T+P<W-2 THEN T=T+1
250 GET A$
260 IF A$=L$ THEN C=C-1
270 IF A$=R$ THEN C=C+1
280 IF C<T THEN 310
290 IF C>P+T THEN 310
300 GOTO 200
310 FORT=1 TO 255:POKE 53270,39:POKE 53270,40:NEXT
320 PRINT" ** ! YOU CRASHED ! **"
330 PRINT" YOUR SCORE IS";Z
340 PRINT" PERFECT SCORE IS 1000"
350 GOTO 440
400 PRINT TAB(T);"     FINISH     [146]"
410 FORT=1 TO 1000:NEXT
420 PRINT" WELL DONE YOU COMPLETED THE RUN!"
430 PRINT" YOU GOT THE PERFECT SCORE OF 1000!"
440 PRINT" DO YOU WANNA PLAY AGAIN?"
450 GET A$:IF A$<>"" THEN 450
460 GET A$:IF A$="Y" THEN 100
470 IF A$<>"N" THEN 460
480 PRINT" HOPE YOU HAD FUN. BYE!"
490 PRINT" (LOADING MENU)"
500 LOAD"THE MAIN MENU/BM",8,1